I am confident in my ability to conduct a consultation for the BrICC clinic
I am confident in my ability to administer standardized cognitive tests
I am confident in my ability to conduct a client-centered clinical interview
I am confident in my ability to identify treatment options to assist people with acquired cognitive impairments
I am prepared to write cognitive rehabilitation goals
I am prepared to administer direct interventions such as attention training or goal management training
I am prepared to engage in systematic instruction to support the use of external aids
I am prepared to engage in a needs assessment to identify cognitive strategies and support learning and use of them
I am confident in my ability to collect and analyze client session data
I am prepared to justify my decisions related to assessment and treatment selection
I am confident in my ability to apply principles of evidence-based practice to my assessment and treatment decisions
I am confident in my ability to make ‘online’ (in session) changes to my daily plans
I am knowledgeable about concussion management
I am comfortable working with clients with brain injuries
I am comfortable working with clients with awareness deficits
I am able to use case history information (e.g., information about etiology) to guide my clinical decision making
I feel prepared to orally present cases
Training was systematic and well organized (Post-Survey Only)
Group meetings enhanced my learning (Post-Survey Only)
Group meetings were efficient (Post-Survey Only)
Group meetings exposed me to learning about other client profiles and case management techniques (Post-Survey Only)
I learned enough about treatment approaches implemented by my peers to be able to implement them with a client even though I never personally delivered the intervention (Post-Survey Only)
I was exposed to clients with the same disorder/diagnosis with different manifestations or treatment needs (Post-Survey Only)
My supervisor supported my case management and clinical approach (Post-Survey Only)
(If you have already taken cognitive rehabilitation course) Because of this clinical experience, I am now able to apply theoretical knowledge and principles in a clinically sound matter (Post-Survey Only)
(If you have already taken cognitive rehabilitation course) I had the appropriate knowledge of theories and practice from my coursework to apply to this clinical experience (Post-Survey Only)
(If you have not yet taken cognitive rehabilitation course) I feel more prepared about enrolling in class because of this clinical experience (Post-Survey Only)
I am confident in my ability to conduct a consultation for the BrICC clinic
I am confident in my ability to administer standardized cognitive tests
I am confident in my ability to conduct a client-centered clinical interview
I am confident in my ability to identify treatment options to assist people with acquired cognitive impairments
I am prepared to write cognitive rehabilitation goals
I am prepared to administer direct interventions such as attention training or goal management training
I am prepared to engage in systematic instruction to support the use of external aids
I am prepared to engage in a needs assessment to identify cognitive strategies and support learning and use of them
I am confident in my ability to collect and analyze client session data
I am prepared to justify my decisions related to assessment and treatment selection
I am confident in my ability to apply principles of evidence-based practice to my assessment and treatment decisions
I am confident in my ability to make ‘online’ (in session) changes to my daily plans
I am knowledgeable about concussion management
I am comfortable working with clients with brain injuries
I am comfortable working with clients with awareness deficits
I am able to use case history information (e.g., information about etiology) to guide my clinical decision making
I feel prepared to orally present cases
Training was systematic and well organized (Post-Survey Only)
Group meetings enhanced my learning (Post-Survey Only)
Group meetings were efficient (Post-Survey Only)
Group meetings exposed me to learning about other client profiles and case management techniques (Post-Survey Only)
I learned enough about treatment approaches implemented by my peers to be able to implement them with a client even though I never personally delivered the intervention (Post-Survey Only)
I was exposed to clients with the same disorder/diagnosis with different manifestations or treatment needs (Post-Survey Only)
My supervisor supported my case management and clinical approach (Post-Survey Only)
(If you have already taken cognitive rehabilitation course) Because of this clinical experience, I am now able to apply theoretical knowledge and principles in a clinically sound matter (Post-Survey Only)
(If you have already taken cognitive rehabilitation course) I had the appropriate knowledge of theories and practice from my coursework to apply to this clinical experience (Post-Survey Only)
(If you have not yet taken cognitive rehabilitation course) I feel more prepared about enrolling in class because of this clinical experience (Post-Survey Only)
---
title: "BrICC Student Data"
output:
flexdashboard::flex_dashboard:
orientation: columns
social: menu
source_code: embed
vertical_layout: scroll
theme: cerulean
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(rio)
library(here)
library(colorblindr)
library(gghighlight)
library(forcats)
library(ggrepel)
library(gt)
library(knitr)
library(kableExtra)
library(reactable)
library(plotly)
opts_chunk$set(echo = FALSE,
fig.width = 5,
fig.height = 6)
theme_set(theme_minimal(base_size = 8))
bricc <- import(here("data", "bricc_data_new.sav"),
setclass = "tbl_df") %>%
characterize() %>%
janitor::clean_names()
head(bricc)
```
# Winter 2020
Column {.tabset data-width=650}
-----------------------------------------------------------------------
### Quiz Score Table
```{r total score winter 2020 data cleaning, include=FALSE}
winter_2020 <- bricc %>%
filter(term == 2)
winter_2020_score_table <- winter_2020 %>%
select(student_name,
pre_test_total_score,
post_test_total_score,
pre_test_knowledge_score,
post_test_knowledge_score,
pre_test_application_score,
post_test_application_score) %>%
rename("Student Name" = student_name,
"Pre-Test Total Score" = pre_test_total_score,
"Post-Test Total Score" = post_test_total_score,
"Pre-Test Knowledge Score" = pre_test_knowledge_score,
"Post-Test Knowledge Score" = post_test_knowledge_score,
"Pre-Test Application Score" = pre_test_application_score,
"Post-Test Application Score" = post_test_application_score)
winter_2020_tidy_quiz <- winter_2020 %>%
pivot_longer(
cols = c(pre_test_total_score,
post_test_total_score,
pre_test_knowledge_score,
post_test_knowledge_score,
pre_test_application_score,
post_test_application_score),
names_to = "assessment",
values_to = "score"
)
```
```{r total score winter 2020}
reactable(winter_2020_score_table)
```
### Quiz Score Plot
```{r quiz winter 2020 plot data cleaning, include=FALSE}
winter_2020_tidy_quiz$assessment <- factor(winter_2020_tidy_quiz$assessment,
levels = c("post_test_total_score",
"pre_test_total_score",
"post_test_knowledge_score",
"pre_test_knowledge_score",
"post_test_application_score",
"pre_test_application_score"))
```
```{r quiz plot winter 2020, fig.width=7, fig.height=6.5}
ggplot(winter_2020_tidy_quiz, aes(assessment, score)) +
geom_col(fill = "blue",
alpha = 0.7) +
coord_flip() +
geom_text(aes(assessment, score, label = score),
nudge_y = -0.5,
color = "white") +
facet_wrap(~student_name) +
theme(panel.grid.major.y = element_blank(),
panel.grid.minor.x = element_blank(),
panel.grid.major.x = element_line(color = "gray80")) +
theme(axis.text.x = element_text(angle = 90)) +
theme(plot.title = element_text(color = "black", size = 12, face = "bold", hjust = 0.5),
axis.text = element_text(size = 10),
axis.title=element_text(size=10),
strip.text = element_text(size = 10)) +
labs(x = "",
y = "Score",
title = "BrICC Winter 2020 Student Scores")
```
### Survey Question 1
I am confident in my ability to conduct a consultation for the BrICC clinic
```{r survey question 1 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q1 <- winter_2020 %>%
select(student_name, pre_survey_q1, post_survey_q1) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q1,
"Post-Survey Response" = post_survey_q1)
```
```{r question 1 winter 2020}
reactable(winter_2020_pre_post_q1)
```
### Survey Question 2
I am confident in my ability to administer standardized cognitive tests
```{r survey question 2 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q2 <- winter_2020 %>%
select(student_name, pre_survey_q2, post_survey_q2) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q2,
"Post-Survey Response" = post_survey_q2)
```
```{r question 2 winter 2020}
reactable(winter_2020_pre_post_q2)
```
### Survey Question 3
I am confident in my ability to conduct a client-centered clinical interview
```{r survey question 3 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q3 <- winter_2020 %>%
select(student_name, pre_survey_q3, post_survey_q3) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q3,
"Post-Survey Response" = post_survey_q3)
```
```{r question 3 winter 2020}
reactable(winter_2020_pre_post_q3)
```
### Survey Question 4
I am confident in my ability to identify treatment options to assist people with acquired cognitive impairments
```{r survey question 4 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q4 <- winter_2020 %>%
select(student_name, pre_survey_q4, post_survey_q4) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q4,
"Post-Survey Response" = post_survey_q4)
```
```{r question 4 winter 2020}
reactable(winter_2020_pre_post_q4)
```
### Survey Question 5
I am prepared to write cognitive rehabilitation goals
```{r survey question 5 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q5 <- winter_2020 %>%
select(student_name, pre_survey_q5, post_survey_q5) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q5,
"Post-Survey Response" = post_survey_q5)
```
```{r question 5 winter 2020}
reactable(winter_2020_pre_post_q5)
```
### Survey Question 6
I am prepared to administer direct interventions such as attention training or goal management training
```{r survey question 6 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q6 <- winter_2020 %>%
select(student_name, pre_survey_q6, post_survey_q6) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q6,
"Post-Survey Response" = post_survey_q6)
```
```{r question 6 winter 2020}
reactable(winter_2020_pre_post_q6)
```
### Survey Question 7
I am prepared to engage in systematic instruction to support the use of external aids
```{r survey question 7 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q7 <- winter_2020 %>%
select(student_name, pre_survey_q7, post_survey_q7) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q7,
"Post-Survey Response" = post_survey_q7)
```
```{r question 7 winter 2020}
reactable(winter_2020_pre_post_q7)
```
### Survey Question 8
I am prepared to engage in a needs assessment to identify cognitive strategies and support learning and use of them
```{r survey question 8 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q8 <- winter_2020 %>%
select(student_name, pre_survey_q8, post_survey_q8) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q8,
"Post-Survey Response" = post_survey_q8)
```
```{r question 8 winter 2020}
reactable(winter_2020_pre_post_q8)
```
### Survey Question 9
I am confident in my ability to collect and analyze client session data
```{r survey question 9 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q9 <- winter_2020 %>%
select(student_name, pre_survey_q9, post_survey_q9) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q9,
"Post-Survey Response" = post_survey_q9)
```
```{r question 9 winter 2020}
reactable(winter_2020_pre_post_q9)
```
### Survey Question 10
I am prepared to justify my decisions related to assessment and treatment selection
```{r survey question 10 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q10 <- winter_2020 %>%
select(student_name, pre_survey_q10, post_survey_q10) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q10,
"Post-Survey Response" = post_survey_q10)
```
```{r question 10 winter 2020}
reactable(winter_2020_pre_post_q10)
```
### Survcey Question 11
I am confident in my ability to apply principles of evidence-based practice to my assessment and treatment decisions
```{r survey question 11 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q11 <- winter_2020 %>%
select(student_name, pre_survey_q11, post_survey_q11) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q11,
"Post-Survey Response" = post_survey_q11)
```
```{r question 11 winter 2020}
reactable(winter_2020_pre_post_q11)
```
### Survey Question 12
I am confident in my ability to make ‘online’ (in session) changes to my daily plans
```{r survey question 12 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q12 <- winter_2020 %>%
select(student_name, pre_survey_q12, post_survey_q12) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q12,
"Post-Survey Response" = post_survey_q12)
```
```{r question 12 winter 2020}
reactable(winter_2020_pre_post_q12)
```
### Survey Question 13
I am knowledgeable about concussion management
```{r survey question 13 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q13 <- winter_2020 %>%
select(student_name, pre_survey_q13, post_survey_q13) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q13,
"Post-Survey Response" = post_survey_q13)
```
```{r question 13 winter 2020}
reactable(winter_2020_pre_post_q13)
```
### Survey Question 14
I am comfortable working with clients with brain injuries
```{r survey question 14 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q14 <- winter_2020 %>%
select(student_name, pre_survey_q14, post_survey_q14) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q14,
"Post-Survey Response" = post_survey_q14)
```
```{r question 14 winter 2020}
reactable(winter_2020_pre_post_q14)
```
### Survey Question 15
I am comfortable working with clients with awareness deficits
```{r survey question 15 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q15 <- winter_2020 %>%
select(student_name, pre_survey_q15, post_survey_q15) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q15,
"Post-Survey Response" = post_survey_q15)
```
```{r question 15 winter 2020}
reactable(winter_2020_pre_post_q15)
```
### Survecy Question 16
I am able to use case history information (e.g., information about etiology) to guide my clinical decision making
```{r survey question 16 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q16 <- winter_2020 %>%
select(student_name, pre_survey_q16, post_survey_q16) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q16,
"Post-Survey Response" = post_survey_q16)
```
```{r question 16 winter 2020}
reactable(winter_2020_pre_post_q16)
```
### Survey Question 17
I feel prepared to orally present cases
```{r survey question 17 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q17 <- winter_2020 %>%
select(student_name, pre_survey_q17, post_survey_q17) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q17,
"Post-Survey Response" = post_survey_q17)
```
```{r question 17 winter 2020}
reactable(winter_2020_pre_post_q17)
```
### Survey Question 18
Training was systematic and well organized (Post-Survey Only)
```{r survey question 18 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q18 <- winter_2020 %>%
select(student_name, post_survey_q18) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q18)
```
```{r question 18 winter 2020}
reactable(winter_2020_pre_post_q18)
```
### Survey Question 19
Group meetings enhanced my learning (Post-Survey Only)
```{r survey question 19 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q19 <- winter_2020 %>%
select(student_name, post_survey_q19) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q19)
```
```{r question 19 winter 2020}
reactable(winter_2020_pre_post_q19)
```
### Survey Question 20
Group meetings were efficient (Post-Survey Only)
```{r survey question 20 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q20 <- winter_2020 %>%
select(student_name, post_survey_q20) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q20)
```
```{r question 20 winter 2020}
reactable(winter_2020_pre_post_q20)
```
### Survey Question 21
Group meetings exposed me to learning about other client profiles and case management techniques (Post-Survey Only)
```{r survey question 21 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q21 <- winter_2020 %>%
select(student_name, post_survey_q21) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q21)
```
```{r question 21 winter 2020}
reactable(winter_2020_pre_post_q21)
```
### Survey Question 22
I learned enough about treatment approaches implemented by my peers to be able to implement them with a client even though I never personally delivered the intervention (Post-Survey Only)
```{r survey question 22 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q22 <- winter_2020 %>%
select(student_name, post_survey_q22) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q22)
```
```{r question 22 winter 2020}
reactable(winter_2020_pre_post_q22)
```
### Survey Question 23
I was exposed to clients with the same disorder/diagnosis with different manifestations or treatment needs (Post-Survey Only)
```{r survey question 23 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q23 <- winter_2020 %>%
select(student_name, post_survey_q23) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q23)
```
```{r question 23 winter 2020}
reactable(winter_2020_pre_post_q23)
```
### Survey Question 24
My supervisor supported my case management and clinical approach (Post-Survey Only)
```{r survey question 24 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q24 <- winter_2020 %>%
select(student_name, post_survey_q24) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q24)
```
```{r question 24 winter 2020}
reactable(winter_2020_pre_post_q24)
```
### Survey Question 25
(If you have already taken cognitive rehabilitation course) Because of this clinical experience, I am now able to apply theoretical knowledge and principles in a clinically sound matter (Post-Survey Only)
```{r survey question 25 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q25 <- winter_2020 %>%
select(student_name, post_survey_q25) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q25)
```
```{r question 25 winter 2020}
reactable(winter_2020_pre_post_q25)
```
### Survey Question 26
(If you have already taken cognitive rehabilitation course) I had the appropriate knowledge of theories and practice from my coursework to apply to this clinical experience (Post-Survey Only)
```{r survey question 26 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q26 <- winter_2020 %>%
select(student_name, post_survey_q26) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q26)
```
```{r question 26 winter 2020}
reactable(winter_2020_pre_post_q26)
```
### Survey Question 27
(If you have not yet taken cognitive rehabilitation course) I feel more prepared about enrolling in class because of this clinical experience (Post-Survey Only)
```{r survey question 27 winter 2020 data cleaning, include=FALSE}
winter_2020_pre_post_q27 <- winter_2020 %>%
select(student_name, post_survey_q27) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q27)
```
```{r question 27 winter 2020}
reactable(winter_2020_pre_post_q27)
```
# Spring 2020
Column {.tabset data-width=650}
-----------------------------------------------------------------------
### Quiz Score Table
```{r total score spring 2020 data cleaning, include=FALSE}
spring_2020 <- bricc %>%
filter(term == 3)
spring_2020_score_table <- spring_2020 %>%
select(student_name,
pre_test_total_score,
post_test_total_score,
pre_test_knowledge_score,
post_test_knowledge_score,
pre_test_application_score,
post_test_application_score) %>%
rename("Student Name" = student_name,
"Pre-Test Total Score" = pre_test_total_score,
"Post-Test Total Score" = post_test_total_score,
"Pre-Test Knowledge Score" = pre_test_knowledge_score,
"Post-Test Knowledge Score" = post_test_knowledge_score,
"Pre-Test Application Score" = pre_test_application_score,
"Post-Test Application Score" = post_test_application_score)
spring_2020_tidy_quiz <- spring_2020 %>%
pivot_longer(
cols = c(pre_test_total_score,
post_test_total_score,
pre_test_knowledge_score,
post_test_knowledge_score,
pre_test_application_score,
post_test_application_score),
names_to = "assessment",
values_to = "score"
)
```
```{r total score spring 2020}
reactable(spring_2020_score_table)
```
### Quiz Score Plot
```{r quiz spring 2020 plot data cleaning, include=FALSE}
spring_2020_tidy_quiz$assessment <- factor(spring_2020_tidy_quiz$assessment,
levels = c("post_test_total_score",
"pre_test_total_score",
"post_test_knowledge_score",
"pre_test_knowledge_score",
"post_test_application_score",
"pre_test_application_score"))
```
```{r quiz plot spring 2020, fig.width=7, fig.height=6.5}
ggplot(spring_2020_tidy_quiz, aes(assessment, score)) +
geom_col(fill = "blue",
alpha = 0.7) +
coord_flip() +
geom_text(aes(assessment, score, label = score),
nudge_y = -0.5,
color = "white") +
facet_wrap(~student_name) +
theme(panel.grid.major.y = element_blank(),
panel.grid.minor.x = element_blank(),
panel.grid.major.x = element_line(color = "gray80")) +
theme(axis.text.x = element_text(angle = 90)) +
theme(plot.title = element_text(color = "black", size = 12, face = "bold", hjust = 0.5),
axis.text = element_text(size = 10),
axis.title=element_text(size=10),
strip.text = element_text(size = 10)) +
labs(x = "",
y = "Score",
title = "BrICC Spring 2020 Student Scores")
```
### Survey Question 1
I am confident in my ability to conduct a consultation for the BrICC clinic
```{r survey question 1 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q1 <- spring_2020 %>%
select(student_name, pre_survey_q1, post_survey_q1) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q1,
"Post-Survey Response" = post_survey_q1)
```
```{r question 1 spring 2020}
reactable(spring_2020_pre_post_q1)
```
### Survey Question 2
I am confident in my ability to administer standardized cognitive tests
```{r survey question 2 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q2 <- spring_2020 %>%
select(student_name, pre_survey_q2, post_survey_q2) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q2,
"Post-Survey Response" = post_survey_q2)
```
```{r question 2 spring 2020}
reactable(spring_2020_pre_post_q2)
```
### Survey Question 3
I am confident in my ability to conduct a client-centered clinical interview
```{r survey question 3 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q3 <- spring_2020 %>%
select(student_name, pre_survey_q3, post_survey_q3) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q3,
"Post-Survey Response" = post_survey_q3)
```
```{r question 3 spring 2020}
reactable(spring_2020_pre_post_q3)
```
### Survey Question 4
I am confident in my ability to identify treatment options to assist people with acquired cognitive impairments
```{r survey question 4 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q4 <- spring_2020 %>%
select(student_name, pre_survey_q4, post_survey_q4) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q4,
"Post-Survey Response" = post_survey_q4)
```
```{r question 4 spring 2020}
reactable(spring_2020_pre_post_q4)
```
### Survey Question 5
I am prepared to write cognitive rehabilitation goals
```{r survey question 5 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q5 <- spring_2020 %>%
select(student_name, pre_survey_q5, post_survey_q5) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q5,
"Post-Survey Response" = post_survey_q5)
```
```{r question 5 spring 2020}
reactable(spring_2020_pre_post_q5)
```
### Survey Question 6
I am prepared to administer direct interventions such as attention training or goal management training
```{r survey question 6 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q6 <- spring_2020 %>%
select(student_name, pre_survey_q6, post_survey_q6) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q6,
"Post-Survey Response" = post_survey_q6)
```
```{r question 6 spring 2020}
reactable(spring_2020_pre_post_q6)
```
### Survey Question 7
I am prepared to engage in systematic instruction to support the use of external aids
```{r survey question 7 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q7 <- spring_2020 %>%
select(student_name, pre_survey_q7, post_survey_q7) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q7,
"Post-Survey Response" = post_survey_q7)
```
```{r question 7 spring 2020}
reactable(spring_2020_pre_post_q7)
```
### Survey Question 8
I am prepared to engage in a needs assessment to identify cognitive strategies and support learning and use of them
```{r survey question 8 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q8 <- spring_2020 %>%
select(student_name, pre_survey_q8, post_survey_q8) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q8,
"Post-Survey Response" = post_survey_q8)
```
```{r question 8 spring 2020}
reactable(spring_2020_pre_post_q8)
```
### Survey Question 9
I am confident in my ability to collect and analyze client session data
```{r survey question 9 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q9 <- spring_2020 %>%
select(student_name, pre_survey_q9, post_survey_q9) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q9,
"Post-Survey Response" = post_survey_q9)
```
```{r question 9 spring 2020}
reactable(spring_2020_pre_post_q9)
```
### Survey Question 10
I am prepared to justify my decisions related to assessment and treatment selection
```{r survey question 10 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q10 <- spring_2020 %>%
select(student_name, pre_survey_q10, post_survey_q10) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q10,
"Post-Survey Response" = post_survey_q10)
```
```{r question 10 spring 2020}
reactable(spring_2020_pre_post_q10)
```
### Survcey Question 11
I am confident in my ability to apply principles of evidence-based practice to my assessment and treatment decisions
```{r survey question 11 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q11 <- spring_2020 %>%
select(student_name, pre_survey_q11, post_survey_q11) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q11,
"Post-Survey Response" = post_survey_q11)
```
```{r question 11 spring 2020}
reactable(spring_2020_pre_post_q11)
```
### Survey Question 12
I am confident in my ability to make ‘online’ (in session) changes to my daily plans
```{r survey question 12 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q12 <- spring_2020 %>%
select(student_name, pre_survey_q12, post_survey_q12) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q12,
"Post-Survey Response" = post_survey_q12)
```
```{r question 12 spring 2020}
reactable(spring_2020_pre_post_q12)
```
### Survey Question 13
I am knowledgeable about concussion management
```{r survey question 13 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q13 <- spring_2020 %>%
select(student_name, pre_survey_q13, post_survey_q13) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q13,
"Post-Survey Response" = post_survey_q13)
```
```{r question 13 spring 2020}
reactable(spring_2020_pre_post_q13)
```
### Survey Question 14
I am comfortable working with clients with brain injuries
```{r survey question 14 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q14 <- spring_2020 %>%
select(student_name, pre_survey_q14, post_survey_q14) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q14,
"Post-Survey Response" = post_survey_q14)
```
```{r question 14 spring 2020}
reactable(spring_2020_pre_post_q14)
```
### Survey Question 15
I am comfortable working with clients with awareness deficits
```{r survey question 15 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q15 <- spring_2020 %>%
select(student_name, pre_survey_q15, post_survey_q15) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q15,
"Post-Survey Response" = post_survey_q15)
```
```{r question 15 spring 2020}
reactable(spring_2020_pre_post_q15)
```
### Survecy Question 16
I am able to use case history information (e.g., information about etiology) to guide my clinical decision making
```{r survey question 16 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q16 <- spring_2020 %>%
select(student_name, pre_survey_q16, post_survey_q16) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q16,
"Post-Survey Response" = post_survey_q16)
```
```{r question 16 spring 2020}
reactable(spring_2020_pre_post_q16)
```
### Survey Question 17
I feel prepared to orally present cases
```{r survey question 17 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q17 <- spring_2020 %>%
select(student_name, pre_survey_q17, post_survey_q17) %>%
rename("Student Name" = student_name,
"Pre-Survey Response" = pre_survey_q17,
"Post-Survey Response" = post_survey_q17)
```
```{r question 17 spring 2020}
reactable(spring_2020_pre_post_q17)
```
### Survey Question 18
Training was systematic and well organized (Post-Survey Only)
```{r survey question 18 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q18 <- spring_2020 %>%
select(student_name, post_survey_q18) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q18)
```
```{r question 18 spring 2020}
reactable(spring_2020_pre_post_q18)
```
### Survey Question 19
Group meetings enhanced my learning (Post-Survey Only)
```{r survey question 19 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q19 <- spring_2020 %>%
select(student_name, post_survey_q19) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q19)
```
```{r question 19 spring 2020}
reactable(spring_2020_pre_post_q19)
```
### Survey Question 20
Group meetings were efficient (Post-Survey Only)
```{r survey question 20 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q20 <- spring_2020 %>%
select(student_name, post_survey_q20) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q20)
```
```{r question 20 spring 2020}
reactable(spring_2020_pre_post_q20)
```
### Survey Question 21
Group meetings exposed me to learning about other client profiles and case management techniques (Post-Survey Only)
```{r survey question 21 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q21 <- spring_2020 %>%
select(student_name, post_survey_q21) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q21)
```
```{r question 21 spring 2020}
reactable(spring_2020_pre_post_q21)
```
### Survey Question 22
I learned enough about treatment approaches implemented by my peers to be able to implement them with a client even though I never personally delivered the intervention (Post-Survey Only)
```{r survey question 22 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q22 <- spring_2020 %>%
select(student_name, post_survey_q22) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q22)
```
```{r question 22 spring 2020}
reactable(spring_2020_pre_post_q22)
```
### Survey Question 23
I was exposed to clients with the same disorder/diagnosis with different manifestations or treatment needs (Post-Survey Only)
```{r survey question 23 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q23 <- spring_2020 %>%
select(student_name, post_survey_q23) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q23)
```
```{r question 23 spring 2020}
reactable(spring_2020_pre_post_q23)
```
### Survey Question 24
My supervisor supported my case management and clinical approach (Post-Survey Only)
```{r survey question 24 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q24 <- spring_2020 %>%
select(student_name, post_survey_q24) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q24)
```
```{r question 24 spring 2020}
reactable(spring_2020_pre_post_q24)
```
### Survey Question 25
(If you have already taken cognitive rehabilitation course) Because of this clinical experience, I am now able to apply theoretical knowledge and principles in a clinically sound matter (Post-Survey Only)
```{r survey question 25 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q25 <- spring_2020 %>%
select(student_name, post_survey_q25) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q25)
```
```{r question 25 spring 2020}
reactable(spring_2020_pre_post_q25)
```
### Survey Question 26
(If you have already taken cognitive rehabilitation course) I had the appropriate knowledge of theories and practice from my coursework to apply to this clinical experience (Post-Survey Only)
```{r survey question 26 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q26 <- spring_2020 %>%
select(student_name, post_survey_q26) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q26)
```
```{r question 26 spring 2020}
reactable(spring_2020_pre_post_q26)
```
### Survey Question 27
(If you have not yet taken cognitive rehabilitation course) I feel more prepared about enrolling in class because of this clinical experience (Post-Survey Only)
```{r survey question 27 spring 2020 data cleaning, include=FALSE}
spring_2020_pre_post_q27 <- spring_2020 %>%
select(student_name, post_survey_q27) %>%
rename("Student Name" = student_name,
"Post-Survey Response" = post_survey_q27)
```
```{r question 27 spring 2020}
reactable(spring_2020_pre_post_q27)
```